#!/usr/bin/perl -w

while(<<>>) {
    if(/wilma/ && /fred/){
        print ;
    }
}
